home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / Pascal / Libraries / SpinningCursorLib / SampleSpin.p < prev    next >
Encoding:
Text File  |  1993-02-04  |  503 b   |  36 lines  |  [TEXT/PJMM]
  1. program SampleSpin;
  2.  
  3.     const
  4.         rAnimatedCursor = 128;
  5.  
  6.     { Some cursor-spinning stuff !}
  7.     procedure InitCursorCtl (resID: Integer);
  8.     external;
  9.  
  10.     procedure StartAsyncSpinning (period: Integer);
  11.     external;
  12.  
  13.     procedure StopAsyncSpinning;
  14.     external;
  15.  
  16.     procedure MainLoop;
  17.     begin
  18.         InitCursorCtl(rAnimatedCursor);
  19.  
  20.         StartAsyncSpinning(10);
  21.  
  22.         repeat
  23. { Do some tasks that you want a spinning cursor associated with }
  24.         until Button;
  25.  
  26.         StopAsyncSpinning;
  27.  
  28.     end;{ procedure MainLoop }
  29.  
  30.  
  31.  
  32. begin
  33.  
  34.     MainLoop;
  35.  
  36. end.